home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / time / afilofaxpro25 / installer-skript < prev    next >
Text File  |  1996-08-22  |  8KB  |  228 lines
  1. (set #lib "libs/reqtools.library")
  2. (set #tf "gadgets/textfield.gadget")
  3.  
  4. (if (= "deutsch" @language)
  5. (
  6.     (set #welcome "\nDieses Skript installiert AFiloFaxPro und alle dazugehörigen Dateien auf Ihrer Festplatte.\n\nAFiloFaxPro © 1995-96 by Frank Weber.")
  7.     (set #destprompt "Bitte Zielverzeichnis wählen.\n(Ein Verzeichnis 'AFiloFaxPro' wird dort erstellt.)")
  8.     (set #desthelp "Sie müssen hier das Verzeichnis wählen, in dem die 'AFiloFaxPro'-Schublade erstellt werden soll.\n\nIn diese Schublade werden dann AFiloFaxPro und alle dazugehörigen Dateien kopiert.")
  9.     (set #overwritemsg "\nAFiloFaxPro wurde bereits in dieses Verzeichnis installiert.\n\nAltes AFiloFaxPro-Verzeichnis löschen ???")
  10.     (set #overwritehelp "In dem Verzeichnis, das Sie ausgewählt haben, existiert bereits ein Verzeichnis mit dem Namen 'AFiloFaxPro'.\n\nAntworten Sie 'Ja', wenn Sie das alte Verzeichnis komplett löschen möchten, bevor diese Version installiert wird.")
  11.     (set #copyafc "Wohin soll das Hintergrundprogramm AFiloCron kopiert werden?")
  12.     (set #copyafchelp "AFiloCron ist das Hintergrundprogramm, das ständig über evtl. auftretende Termine wacht und auch die Statistikdateien erstellt.\n\nEs sollte immer aktiv sein, darum sollten Sie es im WBStartup-Verzeichnis installieren.")
  13.     (set #copysampletext "\nMöchten Sie die mitgelieferten Samples installieren ???")
  14.     (set #copysamplehelp "AFiloCron kann bei einem auftretenden Ereignis ein Soundsample abspielen.\n\nEs werden einige Samples mitgeliefert, Sie verbrauchen ca. 100 KB an Platz auf der Festplatte.")
  15.     (set #copyreqtools "\nReqtools.library kopieren...")
  16.     (set #copytf "\ntextfield.gadget kopieren...")
  17.     (set #demouser "Bitte denken Sie daran, daß das AFiloFaxPro-Paket Shareware ist. Wenn Sie es kennengelernt haben und regelmäßig benutzen, sollten Sie sich bei mir für nur 20 DM registrieren lassen. Nur durch Ihre Unterstützung wird die Weiterentwicklung von AFiloFaxPro sichergestellt.")
  18.     (set #keyfileuser "Nochmals vielen Dank für Ihre Registration. Bitte geben Sie das Keyfile, das Ihren Namen und Ihre Adresse enthält, nicht weiter. Nur durch Ihre Unterstützung wird die Weiterentwicklung von AFiloFaxPro sichergestellt.")
  19. )
  20. (
  21.     (set #welcome "\nThis script will install AFiloFaxPro and all supported files onto your Harddisk.\n\nAFiloFaxPro © 1995-96 by Frank Weber.")
  22.     (set #destprompt "Please choose destination path.\n(A drawer called 'AFiloFaxPro' will be created there.)")
  23.     (set #desthelp "Here you have to choose where the 'AFiloFaxPro' drawer should be created.\n\nAFiloFaxPro and all supported files will be copied into the 'AFiloFaxPro' directory.")
  24.     (set #overwritemsg "\nAFiloFaxPro has already been installed into this directory.\n\nDelete old directory ???")
  25.     (set #overwritehelp "There is already a directory called 'AFiloFaxPro' in the directory chosen by you.\n\nSelect yes if you want the whole directory to be deleted before this version is installed.")
  26.     (set #copyafc "Where is the AFiloCron to be installed?")
  27.     (set #copyafchelp "AFiloCron is the background task waiting for events to occur.\n\nIs it should always be running, so you should place it in your 'WBStartup' drawer.")
  28.     (set #copysampletext "\nWould you like to install the supported samples ???")
  29.     (set #copysamplehelp "AFiloCron can play a soundsample when an event occurs.\n\nSome samples are supported in this archive, they will use about 100 KB of space.")
  30.     (set #copyreqtools "\nInstalling reqtools.library")
  31.     (set #copytf "\nInstalling textfield.gadget")
  32. ))
  33. (set #nohelp " ")
  34.  
  35. (complete 0)
  36. (message #welcome)
  37. (complete 8)
  38.  
  39. (set #default-dir "SYS:")
  40. (set @default-dest "SYS:")
  41.  
  42. (set #dest (askdir (prompt #destprompt)
  43.                    (help #desthelp)
  44.                    (default @default-dest)
  45.            )
  46. )
  47.  
  48. (set #affdrawer (tackon #dest "AFiloFaxPro"))
  49. (set @default-dest #dest)
  50.  
  51. (complete 18)
  52.  
  53. (if (exists #affdrawer)
  54. (
  55.   (if (> @user-level 1)
  56.   (
  57.     (set #overwrite (askbool
  58.                            (prompt #overwritemsg)
  59.                            (help #overwritehelp)
  60.                            (default 0)
  61.                    )
  62.     )
  63.     (if (= 1 #overwrite)
  64.       (run (cat "c:delete QUIET ALL " #affdrawer))
  65.     )
  66.   ))
  67. ))
  68.  
  69. (complete 30)
  70.  
  71. (makedir #affdrawer (infos))
  72.  
  73. (copyfiles  (source "AFiloFax")
  74.             (dest #affdrawer)
  75.             (infos)
  76. )
  77.  
  78. (complete 38)
  79.  
  80. (copyfiles  (source "Anleitung.guide")
  81.             (dest #affdrawer)
  82.             (infos)
  83. )
  84.  
  85. (complete 44)
  86.  
  87. (copyfiles  (source "Readme")
  88.             (dest #affdrawer)
  89.             (infos)
  90. )
  91.  
  92. (copyfiles  (source "Liesmich")
  93.             (dest #affdrawer)
  94.             (infos)
  95. )
  96.  
  97. (copyfiles  (source "RegiTool")
  98.             (dest #affdrawer)
  99.             (infos)
  100. )
  101.  
  102. (complete 50)
  103.  
  104. (makedir (tackon #affdrawer "pics"))
  105.  
  106. (copyfiles (source "pics/")
  107.            (dest (tackon #affdrawer "pics"))
  108.            (pattern "#?")
  109. )
  110.  
  111. (complete 57)
  112.  
  113. (set #afcdest (askdir (prompt #copyafc)
  114.                      (help #copyafchelp)
  115.                      (default "SYS:WBStartup")
  116.              )
  117. )
  118.  
  119. (complete 61)
  120.  
  121. (copyfiles  (source "AFiloCron")
  122.             (dest #afcdest)
  123.             (infos)
  124. )
  125.  
  126. (complete 68)
  127.  
  128. (if (askbool (prompt #copysampletext)
  129.              (help #copysamplehelp)
  130.     )
  131. (
  132.     (makedir (tackon #affdrawer "samples"))
  133.     (copyfiles (source "samples/")
  134.                (dest (tackon #affdrawer "samples"))
  135.                (pattern "#?")
  136.     )
  137. ))
  138.  
  139. (complete 78)
  140.  
  141. (copylib    (prompt #copyreqtools)
  142.             (help #nohelp)
  143.             (source #lib)
  144.             (dest "LIBS:")
  145.             (confirm)
  146. )
  147.  
  148. (complete 84)
  149.  
  150. (copylib    (prompt #copytf)
  151.             (help #nohelp)
  152.             (source #tf)
  153.             (dest "LIBS:gadgets")
  154.             (confirm)
  155. )
  156.  
  157. (complete 90)
  158.  
  159. (tooltype (dest (tackon #affdrawer "AFiloFax"))
  160.           (settooltype "REGITOOL" (tackon #affdrawer "RegiTool"))
  161. )
  162.  
  163. (tooltype (dest (tackon #afcdest "AFiloCron"))
  164.           (settooltype "REGITOOL" (tackon #affdrawer "RegiTool"))
  165. )
  166.  
  167. (tooltype (dest (tackon #affdrawer "AFiloFax"))
  168.           (settooltype "DOC" (tackon #affdrawer "Anleitung.guide"))
  169. )
  170.  
  171. (tooltype (dest (tackon #afcdest "AFiloCron"))
  172.           (settooltype "DOC" (tackon #affdrawer "Anleitung.guide"))
  173. )
  174.  
  175. (tooltype (dest (tackon #afcdest "AFiloCron"))
  176.           (settooltype "AFILOFAX" (tackon #affdrawer "AFiloFax"))
  177. )
  178.  
  179. (complete 93)
  180.  
  181. (if (< (/ (getversion) 65536) 38)
  182.     (tooltype (dest (tackon #affdrawer "Anleitung.guide"))
  183.               (setdefaulttool "sys:utilities/AmigaGuide")
  184.     )
  185.  
  186.     (tooltype (dest (tackon #affdrawer "Anleitung.guide"))
  187.               (setdefaulttool "sys:utilities/Multiview")
  188.     )
  189.  
  190. )
  191.  
  192. (complete 95)
  193.  
  194. (if (not (exists "s:aff_data"))
  195.   (makedir "s:aff_data")
  196. )
  197.  
  198. (complete 96)
  199.  
  200. (set #keycopied 0)
  201.  
  202. (if (exists "AFF.key")
  203. (
  204.     (set #keycopied 1)
  205.     (copyfiles (source "AFF.key")
  206.                (dest "S:")
  207.     )
  208.  
  209.     (tooltype (dest (tackon #affdrawer "AFiloFax"))
  210.               (settooltype "KEYFILE" "S:AFF.key")
  211.     )
  212.     (tooltype (dest (tackon #afcdest "AFiloCron"))
  213.               (settooltype "KEYFILE" "S:AFF.key")
  214.     )
  215.  
  216.  
  217. ))
  218.  
  219. (complete 100)
  220.  
  221. (if #keyfilecopied
  222.     (set #schlusstext #keyfileuser)
  223.     (set #schlusstext #demouser)
  224. )
  225.  
  226. (exit (cat ("Installation abgeschlossen!\n\"%s\" finden Sie nun in Ihrer Schublade (oder Partition)\n\"%s\".\n\nZusätzlich zu diesem Archiv gibt es noch ein Support-Archiv, das eine Anleitung im HTML-Format und das Extra-Samples Paket Nr. 1 enthält.\n\n" @app-name @default-dest) #schlusstext) (quiet))
  227.  
  228.